home *** CD-ROM | disk | FTP | other *** search
/ Almathera Ten Pack 2: CDPD 1 / Almathera Ten on Ten - Disc 2: CDPD 1.iso / pd / 626-650 / 634 / apig / apig33.lzh / aslfile2.rexx < prev    next >
OS/2 REXX Batch file  |  1992-02-05  |  312b  |  18 lines
  1. /* Example of using ASL Library FILE requester */
  2.  
  3. /*  */
  4.  x = addlib("apig.library",0,-30,0)
  5.  
  6. freq = ALLOCASLREQUEST(ASL_FILEREQUEST,null())
  7.  
  8. filename = ASLREQUEST(freq,null())
  9.  
  10. if filename = null() then
  11.    say "Requester Canceled"
  12. else
  13.    say "Selected File:" upper(filename)
  14.  
  15. call FREEASLREQUEST(freq)
  16.  
  17. exit
  18.